Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/wsc4vb24/term.frm

Visual Basic Form | 1999-06-01 | 15.5 KB | 616 lines

VERSION 2.00
Begin Form Term
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Double
   Caption         =   "TERM"
   ClientHeight    =   5160
   ClientLeft      =   4470
   ClientTop       =   4320
   ClientWidth     =   8595
   FontBold        =   0   'False
   FontItalic      =   0   'False
   FontName        =   "Courier New"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   5850
   Left            =   4410
   LinkTopic       =   "Form1"
   ScaleHeight     =   5160
   ScaleWidth      =   8595
   Top             =   3690
   Width           =   8715
   Begin Frame AcceptPane
      BackColor       =   &H00C0C0C0&
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1335
      Left            =   2760
      TabIndex        =   1
      Top             =   2160
      Visible         =   0   'False
      Width           =   2295
      Begin CommandButton AcceptOK
         Caption         =   "OK"
         Height          =   375
         Left            =   720
         TabIndex        =   2
         Top             =   840
         Width           =   855
      End
      Begin TextBox AcceptText
         Height          =   375
         Left            =   120
         TabIndex        =   0
         Top             =   360
         Width           =   2055
      End
   End
   Begin Timer Timer
      Interval        =   55
      Left            =   360
      Top             =   240
   End
   Begin Label bProgress
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   6600
      TabIndex        =   3
      Top             =   240
      Visible         =   0   'False
      Width           =   1695
   End
   Begin Menu menuLine
      Caption         =   "Line"
      Begin Menu menuExit
         Caption         =   "E&xit"
      End
      Begin Menu menuOnLine
         Caption         =   "OnLine"
      End
      Begin Menu menuOffLine
         Caption         =   "OffLine"
         Enabled         =   0   'False
      End
   End
   Begin Menu menuChange
      Caption         =   "Change"
      Begin Menu menuPort
         Caption         =   "Port"
         Begin Menu menuCOM1
            Caption         =   "COM1"
            Checked         =   -1  'True
         End
         Begin Menu menuCOM2
            Caption         =   "COM2"
         End
         Begin Menu menuCOM3
            Caption         =   "COM3"
         End
         Begin Menu menuCOM4
            Caption         =   "COM4"
         End
      End
      Begin Menu menuBaud
         Caption         =   "Baud"
         Begin Menu menu1200
            Caption         =   "1200"
         End
         Begin Menu menu2400
            Caption         =   "2400"
         End
         Begin Menu menu4800
            Caption         =   "4800"
         End
         Begin Menu menu9600
            Caption         =   "9600"
         End
         Begin Menu menu19200
            Caption         =   "19200"
         End
         Begin Menu menu38400
            Caption         =   "38400"
            Checked         =   -1  'True
         End
         Begin Menu menu57600
            Caption         =   "57600"
         End
      End
      Begin Menu menuParity
         Caption         =   "Parity"
         Begin Menu menuNone
            Caption         =   "None"
            Checked         =   -1  'True
         End
         Begin Menu menuEven
            Caption         =   "Even"
         End
         Begin Menu menuOdd
            Caption         =   "Odd"
         End
      End
      Begin Menu menuDataBits
         Caption         =   "DataBits"
         Begin Menu menuSeven
            Caption         =   "Seven"
         End
         Begin Menu menuEight
            Caption         =   "Eight"
            Checked         =   -1  'True
         End
      End
      Begin Menu menuStopBits
         Caption         =   "StopBits"
         Begin Menu menuOne
            Caption         =   "One"
            Checked         =   -1  'True
         End
         Begin Menu menuTwo
            Caption         =   "Two"
         End
      End
   End
   Begin Menu menuDial
      Caption         =   "Dial"
      Enabled         =   0   'False
   End
   Begin Menu menuSend
      Caption         =   "Send"
      Enabled         =   0   'False
      Begin Menu menuTXxmodem
         Caption         =   "XMODEM"
      End
      Begin Menu menuTXymodem
         Caption         =   "YMODEM"
      End
      Begin Menu menuTXascii
         Caption         =   "ASCII"
      End
   End
   Begin Menu menuReceive
      Caption         =   "Receive"
      Enabled         =   0   'False
      Begin Menu menuRXxmodem
         Caption         =   "XMODEM"
      End
      Begin Menu menuRXymodem
         Caption         =   "YMODEM"
      End
      Begin Menu menuRXascii
         Caption         =   "ASCII"
      End
   End
   Begin Menu menuBreak
      Caption         =   "BREAK"
      Enabled         =   0   'False
   End
   Begin Menu menuStatus
      Caption         =   "Status"
   End
   Begin Menu mLow
      Caption         =   "Debug"
      Begin Menu mDebugOff
         Caption         =   "Set Off"
      End
      Begin Menu menuLow
         Caption         =   "Set Low"
      End
      Begin Menu menuHigh
         Caption         =   "Set High"
      End
   End
   Begin Menu menuParam
      Caption         =   "Param"
      Enabled         =   0   'False
      Begin Menu mEOF_Z
         Caption         =   "EOF: ^Z"
      End
      Begin Menu mEOF_Blank
         Caption         =   "EOF: Blank"
      End
      Begin Menu mEOF_0
         Caption         =   "EOF: 0"
      End
   End
' TERM.BAS
Option Explicit
Sub AcceptOK_Click ()
Dim S As String
AcceptPane.Visible = False
menuDial.Enabled = False
S = AcceptText.Text
Call DisplayString(TERM, "[")
Call DisplayString(TERM, S)
Call DisplayLine(TERM, "]")
If AcceptText.Text = "" Then
  Call DisplayLine(TERM, "Missing Text")
  Exit Sub
End If
' set 1st state
If WaitingFor = PHONE_NUMBER Then
  mioState = Dial_1
End If
If WaitingFor = XY_FILE_NAME Then
  xyState = FirstXYstate
  FirstXYstate = 0
End If
If WaitingFor = AS_FILE_NAME Then
  asState = FirstASstate
  FirstASstate = 0
End If
End Sub
Sub Form_KeyPress (KeyAscii As Integer)
    Dim Code As Integer
    '''TERM.Print ">>>"; Hex$(KeyAscii); "";
    If KeyAscii <> 10 Then
      If SioCTS(ThePort) > 0 Then
        Code = SioPutc(ThePort, KeyAscii)
      End If
    End If
End Sub
Sub Form_Load ()
    Dim Row As Integer
    BaudText(1) = "600"
    BaudText(2) = "1200"
    BaudText(3) = "2400"
    BaudText(4) = "4800"
    BaudText(5) = "9600"
    BaudText(6) = "19200"
    BaudText(7) = "38400"
    BaudText(8) = "57600"
    ParityText(0) = "N"
    ParityText(1) = "O"
    ParityText(2) = "?"
    ParityText(3) = "E"
    ParityText(4) = "?"
    ParityText(5) = "M"
    ParityText(6) = "?"
    ParityText(7) = "S"
    FatalFlag = 0
    ThePort = COM1
    TheBaudCode = Baud38400
    TheDataBits = WordLength8
    TheStopBits = OneStopBit
    TheParity = NoParity
    OnLineFlag = 0
    FirstXYstate = 0
    xyState = 0
    asState = 0
    mioState = 0
    DebugLevel = 0
    Call ShowConfig
    Call DisplayInit(TERM)
    Call ShowVersion
End Sub
Sub mDebugOff_Click ()
  Dim Code As Integer
  DebugLevel = 0
  Code = xyDebug(DebugLevel)
  Call DisplayLine(TERM, "Debug level is OFF")
End Sub
Sub menu1200_Click ()
  Call UncheckBaudRate
  menu1200.Checked = True
  TheBaudCode = Baud1200
  Call ShowConfig
End Sub
Sub menu19200_Click ()
  Call UncheckBaudRate
  menu19200.Checked = True
  TheBaudCode = Baud19200
  Call ShowConfig
End Sub
Sub menu2400_Click ()
  Call UncheckBaudRate
  menu2400.Checked = True
  TheBaudCode = Baud2400
  Call ShowConfig
End Sub
Sub menu38400_Click ()
  Call UncheckBaudRate
  menu38400.Checked = True
  TheBaudCode = Baud38400
  Call ShowConfig
End Sub
Sub menu4800_Click ()
  Call UncheckBaudRate
  menu4800.Checked = True
  TheBaudCode = Baud4800
  Call ShowConfig
End Sub
Sub menu57600_Click ()
  Call UncheckBaudRate
  menu57600.Checked = True
  TheBaudCode = Baud57600
  Call ShowConfig
End Sub
Sub menu9600_Click ()
  Call UncheckBaudRate
  menu9600.Checked = True
  TheBaudCode = Baud9600
  Call ShowConfig
End Sub
Sub menuBREAK_Click ()
Dim Code As Integer
mioState = 0
xyState = 0
asState = 0
Code = mioBreak(ThePort)
Code = xyAbort(ThePort)
Code = ascAbort()
menuDial.Enabled = True
menuBREAK.Enabled = False
End Sub
Sub menuCOM1_Click ()
  Call UncheckComPorts
  menuCOM1.Checked = True
  ThePort = COM1
  Call ShowConfig
End Sub
Sub menuCOM2_Click ()
  Call UncheckComPorts
  menuCOM2.Checked = True
  ThePort = COM2
  Call ShowConfig
End Sub
Sub menuCOM3_Click ()
  Call UncheckComPorts
  menuCOM3.Checked = True
  ThePort = COM3
  Call ShowConfig
End Sub
Sub menuCOM4_Click ()
  Call UncheckComPorts
  menuCOM4.Checked = True
  ThePort = COM4
  Call ShowConfig
End Sub
Sub menuDial_Click ()
AcceptPane.Caption = "Phone Number?"
menuDial.Enabled = False
menuBREAK.Enabled = True
AcceptText.Text = ""
AcceptPane.Visible = True
WaitingFor = PHONE_NUMBER
End Sub
Sub menuEight_Click ()
  Call UncheckDataBits
  menuEight.Checked = True
  TheDataBits = WordLength8
  Call ShowConfig
End Sub
Sub menuEven_Click ()
  Call UncheckParity
  menuEven.Checked = True
  TheParity = EvenParity
  Call ShowConfig
End Sub
Sub menuExit_Click ()
  Call GoOffLine
  End
End Sub
Sub menuHigh_Click ()
  Dim Code As Integer
  DebugLevel = 2
  Code = xyDebug(DebugLevel)
  Call DisplayLine(TERM, "Debug level is HIGH")
End Sub
Sub menuLow_Click ()
  Dim Code As Integer
  DebugLevel = 1
  Code = xyDebug(DebugLevel)
  Call DisplayLine(TERM, "Debug level is LOW")
End Sub
Sub menuNone_Click ()
  Call UncheckParity
  menuNone.Checked = True
  TheParity = NoParity
  Call ShowConfig
End Sub
Sub menuOdd_Click ()
  Call UncheckDataBits
  menuOdd.Checked = True
  TheParity = OddParity
  Call ShowConfig
End Sub
Sub menuOffLine_Click ()
  menuChange.Enabled = True
  menuOffline.Enabled = False
  menuOnline.Enabled = True
  menuDial.Enabled = False
  menuSend.Enabled = False
  menuReceive.Enabled = False
  menuParam.Enabled = False
  bProgress.Visible = False
  Call GoOffLine
  Call ShowConfig
End Sub
Sub menuOne_Click ()
  Call UncheckStopBits
  menuOne.Checked = True
  TheStopBits = OneStopBit
  Call ShowConfig
End Sub
Sub menuOnLine_Click ()
  menuOffline.Enabled = True
  menuOnline.Enabled = False
  menuChange.Enabled = False
  menuDial.Enabled = True
  menuSend.Enabled = True
  menuReceive.Enabled = True
  menuParam.Enabled = True
  Call DisplayInit(TERM)
  Call GoOnLine
  Call ShowConfig
End Sub
Sub menuRXascii_Click ()
  AcceptPane.Caption = "Ascii Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = AS_FILE_NAME
  FirstASstate = RX_AS
End Sub
Sub menuRXxmodem_Click ()
  AcceptPane.Caption = "XM Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = XY_FILE_NAME
  FirstXYstate = RX_XM
End Sub
Sub menuRXymodem_Click ()
  menuBREAK.Enabled = True
  LastPacket = -1
  AcceptText.Text = ""
  '*** YMODEM: we get filename from sender ***
  'filename supplied by sender
  '''xyState = RX_YM
  '*** YMODEM: we specify filename on this side ***
  AcceptPane.Caption = "YM Filename?"
  AcceptPane.Visible = True
  WaitingFor = XY_FILE_NAME
  FirstXYstate = RX_YM
End Sub
Sub menuSeven_Click ()
  Call UncheckDataBits
  menuSeven.Checked = True
  TheDataBits = WordLength7
  Call ShowConfig
End Sub
Sub menuStatus_Click ()
Dim N As Integer
Dim Parm As Integer
Dim Text As String * 81
'display state variables
Call DisplayLine(TERM, "mioState = " + Str$(mioState))
Call DisplayLine(TERM, "xyState = " + Str$(xyState))
' any messages from xyDriver ?
While xyGetMessage(ThePort, Text, 80) > 0
  Call DisplayLine(TERM, Text)
Call DisplayLine(TERM, "asState = " + Str$(asState))
' any messages from ascDriver ?
While ascGetMessage(Text, 80) > 0
  Call DisplayLine(TERM, Text)
TERM.bProgress.Visible = True
End Sub
Sub menuTwo_Click ()
  Call UncheckStopBits
  menuTwo.Checked = True
  TheStopBits = TwoStopBits
  Call ShowConfig
End Sub
Sub menuTXascii_Click ()
  AcceptPane.Caption = "Ascii Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = AS_FILE_NAME
  FirstASstate = TX_AS
End Sub
Sub menuTXxmodem_Click ()
  AcceptPane.Caption = "XM Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = XY_FILE_NAME
  FirstXYstate = TX_XM
End Sub
Sub menuTXymodem_Click ()
  AcceptPane.Caption = "YM Filename?"
  menuBREAK.Enabled = True
  AcceptText.Text = ""
  AcceptPane.Visible = True
  LastPacket = -1
  WaitingFor = XY_FILE_NAME
  FirstXYstate = TX_YM
End Sub
Sub mEOF_0_Click ()
  Dim Code As Integer
  'set &H00 as EOF charcter
  Code = xySetParameter(ThePort, XY_SET_EOF_CHAR, 0)
End Sub
Sub mEOF_Blank_Click ()
  Dim Code As Integer
  'set blank as EOF charcter
  Code = xySetParameter(ThePort, XY_SET_EOF_CHAR, &H20)
End Sub
Sub mEOF_Z_Click ()
  Dim Code As Integer
  'set ^Z as EOF character
  Code = xySetParameter(ThePort, XY_SET_EOF_CHAR, 26)
End Sub
Sub ShowVersion ()
  Dim Version As Integer
  Dim A, B, C As String
  Version = SioInfo(Asc("V"))
  C = Hex$(&HF And Version)
  Version = Version / 16
  B = Hex$(&HF And Version)
  Version = Version / 16
  A = Hex$(&HF And Version)
  Call DisplayLine(TERM, "WSC Version " + A + "." + B + "." + C)
  Version = xyGetParameter(0, XY_GET_VERSION)
  C = Hex$(&HF And Version)
  Version = Version / 16
  B = Hex$(&HF And Version)
  Version = Version / 16
  A = Hex$(&HF And Version)
  Call DisplayLine(TERM, "xyDrv Version " + A + "." + B + "." + C)
End Sub
Sub Timer_Timer ()
  If OnLineFlag Then
    'get incoming serial data
    Call GetIncoming
  End If
End Sub
Sub Timer1_Timer ()
  If OnLineFlag Then
    'get incoming serial data
    Call GetIncoming
  End If
End Sub
Sub UncheckBaudRate ()
'uncheck all baud rates
menu1200.Checked = False
menu2400.Checked = False
menu4800.Checked = False
menu9600.Checked = False
menu19200.Checked = False
menu38400.Checked = False
menu57600.Checked = False
End Sub
Sub UncheckComPorts ()
'uncheck all COM ports
menuCOM1.Checked = False
menuCOM2.Checked = False
menuCOM3.Checked = False
menuCOM4.Checked = False
End Sub
Sub UncheckDataBits ()
'uncheck data bits
menuSeven.Checked = False
menuEight.Checked = False
End Sub
Sub UncheckParity ()
'uncheck parity
menuOdd.Checked = False
menuEven.Checked = False
menuTwo.Checked = False
End Sub
Sub UncheckStopBits ()
'uncheck stop bits
menuOne.Checked = False
menuNone.Checked = False
End Sub